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1620 DIAGNOSTICS 



CU05 



SPECIAL INSTRUCTIONS 



A. SCOPE:: 



This test is essentially a J?au}t detection test designed to check for the 
proper operation of the special instructions Transfer Numeric Strip, 
Transfer Numeric Fill and Move Flag. 



B. SETUP: 



Suggested setting of 1620 switches: 

1. Check Switches set to STOP. 

2. Sense Switches set QFF. 

The sense switches have the following functions in this test: 

Sense Switch #1 ON bypass error type out 

OFF Type out routine number on error 

Sense Switch #2 ON JLoop in routine 

OFF Continue to next routine 

Sense Switch #3 ON Stop on error 

QFF bypass Halt in error routine 

Sense Switch #4 ON Repeat Test 
OFF Hal* 

NORMAL LOAD 

This test is designed to be used with a 1620-1622 system. The cards 
must be run in the 1622 by using the LOAD key. Depressing the 1620 
START key will initiate the goading of the instructions. 

If these features are to be used with a 1620-1621 system, then the 
instructions to load the test instructions must be inserted in the 1620. 
These are: 

36 00096 00300 

49 00828 

PRODUCE NEW TAPE 



1. Load tape in paper tape reader and ready reader. 

2. Insert the following instructions in 1620: 
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PRODUCE NEW TAPE (cont'd) 

36 IWtO 00300 
35 00200 

37 15201 00300 
39 15201 00200 
48 

3. Release and start, 

C. TEST METHOD: 

Tne test is comprised of a group of routines (15) to check the various 
aspects of these three special instructions. 

Routine 001 types the setting of the sense switches, the name of the 
teft, and reads in the data for checking Transfer Numeric Strip. 

Routines 002-005 check the Transfer Numeric Strip circuits* The zone 
daja of the numeric fields read in in the alpha mode in routine 001 is 
removed. Routines 00 & and 003 remove the zone data from positive 
fie|ds. The addressed position of the Q field in routine 002 is odd; , 
whfle the addressed position of the Q field in routine 003 is even. 
Routines 004 and 005 remove the zone data from negative fields; the 
addressed position of the Q fields being odd and even respectively. 

Routines 006-009 check the Transfer Numeric Fill Circuits. Zone data 
for ten digit numeric fields is added* Routines 006 and 007 add zone data 
to positive fields. The addressed Q field for routine 006 is an odd 
memory memory location and for routine 007 it is an even position. A 
test is made to determine that a flag bit is not inserted in the high order 
position of the P field. Routines 008 and 009 add zone data to negative 
fields. The addressed O field in routine 008 is odd and in routine 009 
it Js even. Flag bits should not be inserted in the high order position 
of £he P field. 

Routines 010-013 check the Move Flag circuits. The flag conditions 
of the Q addressed position is moved to the flag position of the TP 
address, leaving the Q address without a flag. The four conditions, 
moving a flag to a no flag position, flag to flag position, no flag to flag, 
and no flag to no flag, are checked by the routines 010-013 respectively. 

Routine 014 is the repeat routine, and routine 015 is the test completed 
routine. 

Error typeouts consist of an M H H followed by the routine number and a 
statement of the error that occurred or the field that is in question. 
Comparing the typed field with the compare data will indicate what 
caused the error type out. PN 2125637 EC 404618 
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CU05 

The complete normal typeoyt Information will b3 as follows: 

SW 1 OFF SW 2 OFF SW 3 OFF SW 4 OFF SET SENSE SWS FOR 
CU05, SPECIAL INSTS TEST. THEN START. 
. START ROUTINES. ETOS FOLLOW, 
TEST COMPLETED. IF SW 1 QFF AND NO ROUTINE NOS TYPED, 
TEST PERFORMED PROPERLY. 
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1620 DIAGNOSTICS 
CUOj? 

SPECIAL INSTRUCTIONS 
FLOW CHART 



Load Paper 
Tape in Reader 
and Ready- 



Insert Loading 
Instructions In 
1620 



< 



Release and 
Start 



TO 



00000 


00024 


Load Instructions 
Branch to 00828 




■ 



Loading Instructions are 
36 00096 00 300 
49 00828 



To Routine 001 
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CU05 FLOW CHART 
WITH 1622 I/O 



< 



RESET 1620 



> 



< 



READY THE CARD 
READER 



PLACE CU05 IN 
THE READ HOPPER. 
DEPRESS THE LOAD KEY 



00000 


to 00059 








36 00060 


00500 


Card 


36 00100 


00500 


#1 


36 00160 


00500 




36 00220 


00500 




36 00280 


00500 




00060 


to 00095 




36 00340 


00500 


Card 


36 00000 


00500 


#2. 


4.9 00000 


00000 


J 


00000 


to 00059 


36 00456 


00500 




1 1 00006 


00060 


Card 


14 00006 


05136 


#8 


47 00000 


01200 




49 00828 


00000 





flfft and second Load Cards load the 

|nath tables and Program Load Card. 

(Cafds 3 through 7 contain the math tables.) 



Eighth Load Card contains instructions 
for loading core storage. 



To Routine 001 
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TO 

00516 $ 0114 0 

Routine 001 
Type Setting of Sense 
Switches and Name 

of Test 
Branch to 01344 



From 

Routine 014 l^ 1 

04644 TO 

01140 1 01500 

Routine 002 
Check Transfer 
Numeric Strip (72) 
Plus Field, Odd Mem 
Branch to 01476 



E Cycle Trigs. Aux. Trigs. 

26 Regen Mem (OR-1) T/C 
Test for FM#1 

27 M em — ► MDR (OR-1 j FM #1 

26 MDR— » Mem (OR-1) First Cycle 
FM#l~*Set F 

27 Regen Mem 



TO 



01500 


01692 


Routine 003 
Check Transfer 
Numeric Strip (72) 
Plus Field, Even Merr>, 
Branch to 01728 


• : 

01692 


01884 


Routine 004 
Check Transfer 
Numeric Strip (72) 
Minus Field, Odd Mem 
Branch to 01920 







E Cycle Trigs. 

26 Regen Mem (OR-1) 
Test FM#1 

27 Mem — ►MDR (OR -2) 

26 MDR— ►Mem (OR-1) 
FM#l-*Set F 

27 Regen Mem (OR- 2) 



Aux. Trigs. 
T/C 

fm n 

First Cycle 



E Cycle Trigs. 

26 Regen Mem (OR-1) 
Test FM#1 

27 Mem — ►MDR (OR- 2) 

If EV and 5, set FM#2 

26 MDR— * Mem (OR-1) 
FM#1 or FM #2— ♦Set F 

27 Regen Mem (OR-2) 



Aux. Trigs. 
T/C 

FM#1, #2 

First Cycle 



To Routine 005 
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From Routine 004 



TO 



01884 



02076 



Routine 005 
Check Transfer 
Numeric Strip (72) 
Minus Field, Even Mem 
Branch to 02} 36 


T 

02076 


02388 


Routine 006 
Check Transfer 
Numeric Fill (73) 
Plus Field, Odd Mem 
Branch to 02172 







TO 



02388 



02724 



Routine 007 
Check Transfer 
Numeric Fill (73) 
Plus Field, Even Mem 
Branch to 02484 



TO 



02724 



03012 



Routine 008 
Check Transfer 
Numeric Fill (73) 
Minus Field, Odd Mem 
Branch to 02928 
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E Cycle Trigs. Aux. Trigs. 

26 Regen Mem (OR-1) T/C 
Test FM#1 

27 Mem— -»MDR (OR- 2) FM#1, #2 
If EV and 5, set FM#2 

26 MDR — *M em (OR-1) First Cycle 
FM#1 or FM#2-*Set F 

27 Regen Mem (OR- 2) 



E Cycle Trigs, 

26 
27 
26 
27 



E Cycle Trigs, 

26 
27 
26 
27 



E Cycle Trigs. 

26 
27 
26 
27 



Aux. Trigs. 

FM #1 
T/C 

Fir st Cycle 



Aux. Trigs. 

FM #1 
T/C 

First Cycle 



Aux. Trigs. 

FM #1 

T/C 

First Cycle 



To Routine 009 
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From Routine 008 



TO 



03012 



03312 



Routine 009 
Check Transfer 
Numeric Fill (73) 
Minus Field, Even Mem 
Branch to 03108 



TO 



03312 



03636 



Routine 010 
Check Move Flag(71) 
Flag to No Flag 
Branch to 03648 



TO 



03636 



03960 



Routine 011 
Check Move Flag(71) 
Flag to Flag 
Branch to 0 3972 



TO 



0 3960 



04272 



Routine 012 
Check Move Flag (71) 
No Flag to Flag 
Branch to 04284 



TO 



04272 



04596 



Routine 013 
Check Move Flag (71) 
No Flag to No Flag 
Branch to 04608 



E Cycle Trigs, 

26 
27 
26 
27 



E Cycle Trigs. 

28 
29 
28 
29 



E Cycle Trigs. 

28 
29 
28 
29 



E Cycle Trigs, 

28 
29 
28 
.29 



E Cycle Trigs. 

28 
29 
28 
29 
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Aux. Trigs. 

FM #1 
T/C 

First Cycle 



Aux. Trigs. 
T/C 

First Cycle 
FM #1 



Aux. Trigs. 
T/C 

First Cycle 
FM #1 



Aux. Trigs. 
T/C 

First Cycle 



Aux. Trigs. 
T/C 

First Cycle 
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From Routine 013 



To 



04896 



Routine 016 
Check Transfer 
Numeric Strip (72) 
Minus Fi$ld Even Memory 
Branch to 04608 




To Routine 014 
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From Routine 01 6 



04596 




04668 



Routine 014 
Repeat Routine 




Yes 



TO 

04668 I 04896 

Routine 015 
Test Completed 
Routine 




HALT 
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1620 DIAGNOSTICS 
CU05 

SPECIAL INSTRUCTIONS 



Mem 


00 


PPFPP 


QQQQQ 


OP 


DESCRIPTION 


Loc 


01 


23456 


78901 


TYP 




00096 




0000 


00000 


MT 


MULTIPLY TABLE 


00108 


00 


00102 


03040 


MT 


MULTIPLY TABLE 


00120 


00 


20406 


08000 


MT 


MULTIPLY TABLE 


00132 


30 


60902 


10040 


MT 


MULTIPLY TABLE 


00144 


80 


21610 


05001 


MT 


MULTIPLY TABLE 


00156 


51 


02006 


02181 


MT 


MULTIPLY TABLE 


00168 


42 


00704 


11282 


MT 


MULTIPLY TABLE 


00180 


00 


80614 


22300 


MT 


MULTIPLY TABLE 


00192 


90 


81726 


30000 


MT 


MULTIPLY TABLE 


00204 


00 


00005 


06070 


Mlf 


MULTIPLY TABLE 


00216 


80 


90012 


14161 


MT 


MULTIPLY TABLE 


00 228 


81 


51811 


24272 


MT 


MULTIPLY TABLE 


00 240 


02 


42822 


36352 


MT 


MULTIPLY TABLE 


00252 


03 


53045 


40 363 


MT 


MULTIPLY TABLE 


00 264 


24 


84455 


32494 


MT 


MULTIPLY TABLE 


0.0276 


65 


36048 


46546 


MT 


MULTIPLY TABLE 


00 288 


27 


5445 3 


62718 


MT 


MULTIPLY TABLE 


00 300 


01 


23456 


78912 


AT 


ADD TABLE 


00312 


34 


56789 


02345 


AT 


ADD TABLE 


00 324 


67 


89013 


45678 


AT 


ADD TABLE 


00336 


90 


12456 


78961 


AT 


ADD TABLE 


00 348 


23 


56789 


01234 


AT 


ADD TABLE 


00360 


67 


89012 


34578 


At 


ADD TABLE 


00372 


90 


12345 


68901 


AT 


ADD TABLE 


00 384 


23 


45679 


0~1234 


AT 


ADD TABLE 


00396 


56 


78* 




AT 


ADD TABLE 


.00408 








X 




00420 








X 




00432 








X 




00444 








X 




00456 








x 




00468 








X 




00480 






62 


X 




00492 


63 


41596 


3 59 


X 




00504 


56 


64634 


95545 


X 
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ROUTINE 001 
CHECK SENSE SWITCH SETTINGS 



0051.6 


62 


03 4 


56356 


00528 


62 


465 


65 35 3 


00540 


56 


6603 


0*62 


00 552 


66 


71 


5655 


00564 




0*626 


6 71 


00576 




56464 


6 0/ 


00588 


62 


66 7 


2 56 


00600 


55 


0*6 


266 


00612 


72 


564 


646 


00624 


0* 


6266 


73 


00636 


56 


55 0 


*6266 


00648 




73 5 


64646 


00660 




0*626 


6 74 


00672 




5655 


0*62 


00684 


66 


74 


5646 


00696 


46 


0?6 


24563 






62455 


56245 


00 7 20 




62666 


2 46 


00732 


56 


59 4 


36470 


00744 


75 


23 6 


25745 


00756 


43 


49415 


3 49 


00768 


55 


62636 


2 63 


00780 


45 


62630 


3 63 


00792 


48 


4555 


6263 


00804 


41 


59630 


3 0* 


00816 








00828 


46 


00852 


00100 


00840 


47 


00876 


00100 


00862 


39 


00551 


00100 


00864 


49 


00888 




00876 


39 


00569 


00100 


00888 


46 


00912 


06200 


00900 


47 


00936 


00200 


00912 


39 


00589 


00100 


00924 


49 


00948 




00936 


39 


00607 


00100 


00948 


46 


00972 


00 300 


00960 


47 


00996 


00300 


009.72 


39 


00627 


00100 


00934 


49 


01008 




00996 


39 


00645 


00100 


01008 


46 


01032 


00400 


01020 


47 


01056 


00400 


01032 


39 


00665 


00100 


01044 


49 


01068 





X ETO 

X S FOLL 

X OW. / S 

X Vf 1 ON 

X * SW 1 

X OFF * 

X SW 2 0 

X N * S W 

X 2 OFF 

X *SW 3 

X ON f SW 
X 3 OFF 

X /SW 4 

X ON / S 

X W 4 OF 

X F i SE T 

X SENSE 

X SWS F 

X OR CUO 

X 5 , SPE 

X CI AL I 

X NSTS T 

X EST. T 

X HEN ST 

X ART. L 
X 

BI CHECK FOR SW 1 ON 

BNI CHECK FOR SW 1 OFF 

WA TYPE SW 1 ON 
B 

WA TYPE SW 1 OFF 

BI CHEC K FOR SW 2 ON 

BNI CHECK FOR SW 2 OFF 

WA TYPE SW 2 ON 

B 

WA TYPE SW 2 OFF 

BI CHECK FOR SW 3 ON 

BNI CHECK FOR SW 3 OFF 

WA TYPE SW 3 ON 

B 

WA TYPE SW 3 OFF 

BI CHECK FOR SW 4 ON 

BNI CHECK FOR SW 4 OFF 

WA TYPE SW 4 ON 

B 
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TYPE SW 4 OFF 

TYPE SET SWS, NAME OF TEST, 

THEN START 

HALT 

TYPE START ROUTINES. ETOS FOLLOW 
READ ALPHA *F0R CARD 1/0 = 5 



ROUTINE 002 
CHECK TRANSFER NUMERIC STRIP 
10 QIGITS + TO ODD MEM. 



01140 








X 


READ CARD AREA 


01152 








X 


READ CARD AREA 


01164 








X 


READ CARD AREA 


U i 1 7 o 








X 


KJI4AD OAKD AKJUiA 


01188 








X 


READ CARD AREA 


01200 








X 


READ CARD AREA 


01212 








X 


READ CARD AREA 


01224 








X 


READ CARD AREA 


01236 








x : 


READ CARD AREA 


01248 








X 


READ CARD AREA 


01260 








x • 


READ CARD AREA 


01272 








X 


READ CARD AREA 


01284 








X 


• READ CARD AREA 


01296 








READ CARD AREA 


01308 










WORKING AREA 


01320 




0 






WORKING AREA 


01332 




12345 


67890 


X 


COMPARE DATA 


01344 


72 


01159 


01331 


TN$ 


TRANSFER NUMERIC STRIP + FIELD 


01 356 


24 


01331 


01343 


P 


CHECK FOR CORRECT RESULTS 


01368 


47 


01416 


01200 


JBNJ 

3 ■ 


CHECK FOR E/Z 


01380 


49 


01476 






01392 








X 




01404 








X 














ERROR ROUTINE 


01416 


46 


01452 


00100 


BI 


CHECK SW 1 


01428 


39 


01465 


00100 


WA 


TYPE ROUTINE NO. 


01440 


38 


01322 


00100 


WN 


TYPE TNS FIELD 


01452 


47 


01476 


00300 


BNI 


CHECK SW 3 


01464 


48 


70707 


2 0# 


H 


HALT 


01476 


46 


01344 


00200 


BI 


CHECK SW 2 


01488 


49 


01536 




B 
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01056 39 00683 00100 WA 
01068 39 00703 00100 WA 



01080 


48 






H 


01092 


3^ 




00102 


K 


01104 


39 


00^91 


00100 


WA 


01116 


37 


011*H 


00S00 


RA 


01128 


49 


013M+ 




B 
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ROUTINE 00 3 
CHECK TRANSFER NUMERIC STRIP 
10 DIGITjS + TO EVEN MEMORY 



01500 








X 


WORKING AREA 


0 1 *U Z 


0 




t 


X 


WORKING AREA 


01 524 




98765 


40 321 


X 


COMPARE DATA 


01536 


72 


01179 


01522 


TNS 


TRANSFER NUMERIC STRIP + FIELD 


01548 


24 


01522 


01535 


C 


CHECK FOR CORRECT RESULTS 


01560 


47 


01608 


01200 


BNI 




01572 


49 


01668 




B 




01584 








X 




01596 








X 














ERROR ROUTINE 


01608 


46 


01644 


00100 


BI 


CHECK SW 1 


01620 


39 


0 1657 


00 100 


WA 


TYPE ROUTINE NO. 


0 1 632 


38 


01513 


00100 


WN 


TYPE TNS FIELD 


01644 


47 


01668 


00 300 


BNI 


CHECK SW 3 


01656 


48 


70707 


3 0* 


H 


HALT 


01668 


46 


01536 


00200 


BI 


CHECK SW 2 


0 1680 


49 


01728 




B 




- 










ROUTINE 004 








CHECK TRANSFER NUMERIC STRIP 


- 






10 DIGITS - 


TO ODD MEMORY 


01692 








X 


WORKING AREA 


0 1704 




0 




X 


WORKING AREA 


0 1716 


JL 


54321 


06789 




COMPARE DATA 


U IV 2o 


72 


0 1 199 


01715 


TNS 


TRANSFER NUMERIC STRIP - FIELE 


U 1740 


24 


01715 


01727 


<J 


CHECK FOR CORRECT RESULTS 


U I ( t>2 


4 / 


a i o n r\ 

o iyoo 


01200 


BNI 


CHECK FOR E/Z 


U lVt>4 


49 


0 looO 




B 




U 1 / (O 








X 




01788 








X 














ERROR ROUTINE 


01800 


46 


01836 


00100 


BI • 


CHECK SW 1 


01812 


39 


01849 


00100 


■ WA 


TYPE ROUTINE NO. 


0L824 


38 


01706 


00100 


WN 


TYPE TNS FIELD 


01836 


47 


01866 


00 300 


BNI 


CHECK SW 3 


0 1 848 


48 


70707 


4 0* 


H 


HALT 


01860 


46 


01728 


00200 


BI 


CHECK SW 2 


01S72 


49 


01920 




B 
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ROUTINE 005 
CHECK TRANSFER NUMERIC STRIP 
10 DIGITS - TO EVEN MEMORY 



01884 








X 


WORKING AREA 


01896 


0 




« 

t 


X 


WORKING AREA 


01908 




67890 


12340 


X 


COMPARE DATA 


01920 


72 


01219 


01906 


TNS 


TRANSFER NUMERIC STRIP - FIELD 


01932 


24 


01906 


01919 


c 


CHECK FOR CORRECT RESULTS 


01944 


47 


01992 


01200 


BNI 


CHECK FOR E/Z 


01956 


49 


02052 




B 




01968 








X 




0.1980 








X 














ERROR ROUTINE 


01992 


46 


02028 


00100 


BI 


CHECK SW 1 


02004 


39 


02041 


00100 


WA 


TYPE ROUTINE NO. 


02016 


38 


01897 


00100 


WN 


TYPE TNS FIELD 


02028 


47 


02052 


00300 


BNI 


CHECK SW 3 


02040 


48 


70707 


5 0* 


H 


HALT 


02052 


46 


01920 


00200 


BI 


CHECK SW 2 


02064 


49 


02 136 




B 














ROUTINE 006 










CHECK TRANSFER NUMERIC FILL 










10 DIGITS + FROM ODD MEMORY 


02076 




0 




X 


WORKING AREA 


02088 








X 


WORKING AREA 


02100 


t 


12345 


09876 


X 


NUMERIC FIELD 


U c. 1 1 c. 




U ( 1 I 


•j n -3*7 A 


X 


COMPARE DATA 


02124 


75 


70797 


87776 


X 


COMPARE DATA 


02136 


73 


02099 


02111 


TNF 


TRANSFER NUMERIC FILL + FIELD 


02148 


44 


02172 


02080 


BNF 


CHECK FOR NO FLAG 


02160 


49 


02340 




B 


BRANCH TO ERROR ROUTINE 


02172 


24 


02099 


02135 


C 


CHECK FOR CORRECT RESULTS 


02184 


47 


02208 


01200 


BNI 


CHECK FOR E/Z 


02196 


49 


02268 




B 














ERROR ROUTINE 


02208 


46 


02244 


00100 


BI 


CHECK SW 1 


02220 


39 


02257 


00100 


WA 


TYPE ROUTINE NO. 


02232 


38 


02080 


00100 


WN 


TYPE TNF FIELD 


02244 


47 


02268 


00300 


BNI 


CHECK SW 3 


02256 


48 


70707 


6 Of 


H 


HALT 


02268 


46 


02136 


00200 


BI 


CHECK SW 2 


Q2280 


49 


02448 




B 
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U2292 


A A 

49 


C C A O A 
DO o24 


C C A A "2 


J\ 


T XT C 17^ T> HP 

I N S E K 1 


02304 


45 


44 4 


65341 


X 


ED FLA 


02316 


47 


57 


4649 


X 


G P F I 


m ion 
02 32o 




C "3 A A A 

b J44U 


3 Of 


A 


EL D . f 


02340 


46 


02376 


00100 


BI 


CHECK SW 1 


02352 


39 


02257 


00100 


WA 


TYPE ROUTINE NO. 


A 1 '<J L. A 

02364 


39 


0229 3 


00100 


WA 


TYPE REMOVED FLAG P FIELD 


u2376 


49 


02172 




B 


BRANCH TO COMPARE OF RESULTS 












ROUTINE 007 










CHECK 


TRANSFER NUM ERIC FILL 










10 DIGITS + FROM EVEN MEMORY 


a o ^ o o 
0 23oo 




0 




X 


WORKING AREA 


A O A rvA 

02400 








X 


WORKING AREA 


02412 


?6 


7890 1 


2345 


X 


NUMERIC FIELD 


02424 




0767 


77879 


X 


COMPARE DATA 


02436 


70 


71727 


37475 


X 


COMPARE DATA 


02448 


73 


0241 1 


02422 


TNF 


TRANSFER NUM ERIC FILL 4 FIELD 


02460 


44 


02484 


02392 


BNF 


CHECK FOR NO FLAG 


02472 


49 


02676 




B 


BRANCH TO ERROR ROUTINE 


02484 


24 


0241 1 


02447 


C 


CHECK FOR CORRECT RESULTS 


02496 


47 


02544 


01200 


BNI 


CHECK FOR E/Z 


A O C A Q 

U 2bUo 


>t A 

49 


02604 




B 




A O C O A 

0 2520 








X 




a o c n 
U2D 32 








X 














ERROR ROUTINE 


U £D44 


A A 

46 


A O C O A 

02580 


00 100 


BI 


CHECK SW 1 " 


A o c c A 


-59 


men l 
0 2b9 3 


00 100 




TYPE ROUTINE NO. 


n ? r Aft 

V63DO 


"*ft 

JO 


A "? "2.A 1 

uz 39 1 


A A 1 A A 

UU IU0 


w<j4 


TYPE TNF FIELD 


U6JOU 




ao An/t 

v £OU ^fc 


A A "2.A A 

UU 3U U 


BNI 


CHECK SW 3 


0 7 £>Q 7 


Aft 




7 A + 
f U f 


H 


HALT 


0 ?6fi4. 




A O AAQ 


A A "5 A A 
UU <£U U 


BI 


CHECK SW 2 


02616 


4.Q 


fi ?7ft A 




B 




0? A?ft 


<±Q 

TC 7 


c c A 9 A 




X 


INSERT 


n 7 A40, 

U & O tcU 


~fcD 


44 4 


65341 


X 


ED F L A 


,02652 


47 


57 


4649 


X 


G P F I 


02664 


45 


53440 


3 0* 


X 


EL D . * 


02676 


46 


02712 


00100 


BI 


CHECK SW 1 


'02688 


39 


02593 


00100 


WA 


TYPE ROUTINE NO. 


02700 


39 


02629 


00100 


WA 


TYPE INSERTED FLAG P FIELD 


02712 


49 


02484 




B 


BRANCH TO COMPARE OF RESULT 
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ROUTINE 008 
CHECK TRANSFER NUMERIC FILL 
10 DIGITS - FROM ODD MEMORY 



02724 




0 




X 


WORKING AREA 


02736 








X 


WORKING AREA 


02748 


t 


98765 


01234 


X 


NUMERIC FIELD 


02760 




0797 


87776 


x 


COMPARE DATA 


02772 


75 


70717 


27 354 


X 


COMPARE DATA 


02784 


73 


02747 


02759 


TNF 


TRANSFER NUMERIC FILL - FIELD 


02796 


44 


02820 


02728 


BNF 


. CHECK FOR NO FLAG 


02808 


49 


02964 




B 


BRANCH TO ERROR ROUTINE 


02820 


24 


02747 


02783 


C 


CHECK FOR CORRECT RESULTS 


02832 


47 


02868 


01200 


BNI 


CHECK FOR E/Z 


02844 


49 


02928 




B 




02856 








X 














ERROR ROUTINE 


02868 


46 


02904 


00100 


BJ 


CHECK FOR SW 1 


02880 


39 


02917 


00100 


WA 


TYPE ROUTINE NO. 


02892 


38 


02728 


00100 


WN 


TYPE TNF FIELD 


02904 


47 


02928 


00300 


BNI 


CHECK SW 3 


02916 


48 


70707 


8 0* 


H 


HALT 


02928 


46 


02784 


00200 


BI 


CHECK SW 2 


02940 


49 


03072 




B 




02952 








X 




02964 


46 


03000 


00100 


BI 


CHECK SW 1 


02976 


39 


02917 


00100 


WA 


TYPE ROUTINE NO. 


02988 


39 


02293 


00100 


WA 


TYPE INSERTED FLAG P FIELD 


03000 


49 


02820 




B 


BRANCH TO COMPARE RESULT, 



ROUTINE 009 
CHECK TRANSFER NUMERIC FILL 
10 DIGITS - FROM EVEN MEMORY 



03012 




0 




X 


WORKING AREA 


0 3024 








X 


WORKING AREA 


0 30-36 


n 


06273 


8490 


X 


NUMERIC FIELD 


03048 




0717 


07672 


X 


COMPARE DATA 


03060 


11 


73787 


47950 


X 


COMPARE DATA 


03072 


73 


03035 


03046 


TNF 


TRANSFER NUMERIC FILL - FIELD 


03084 


44 


03108 


03016 


BNF 


CHECK FOR NO FLAG 


03096 


49 


03264 




B 


BRANCH TO ERROR ROUTINE 


031JD8 


24 


03035 


03071 


C 


" CHECK FOR CORRECT RESULTS 


03120 


47 


03168 


01200 


BNI 


CHECK FOR E/Z 


03132 


49 


03228 




B 




03144 








X 
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03156 








X 
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03168 


46 


03204 


00100 


BI 


0 3180 


39 


03217 


00100 


WA 


03192 


38 


03015 


00100 


WM 


03204 


47 


03228 


00300 




03216 


48 


70707 


9 0* 


H 


03228 


46 


03072 


00200 


BI 


03240 


49 


03324 




B 


03252 








X 


03264 


47 


03300 


00100 


BI 


03276 


39 


03217 


00100 


WA 


03288 


39 


02629 


00100 


WA 


03300 


49 


03108 




B 








CH£CK : 


03312 




76 


f 44? 


X 


Q3324 


15 


03318 


6 


TQjM 


03336 


15 


03322 


5 


TQM 


03348 


71 


03318 


03322 


m 


03360 


14 


03318 


76 


CM 


03372 


47 


03444 


01200 


mi 


03384 


14 


03322 


54 


CM 


03396 


47 


03528 


01200 


BMt 


03^08 


49 


03588 




B 


03420 








X 










X 


0 3444 


46 


03480 


00 100 


Bl( 


03456 


39 


03493 


00100 


WA 


0 3468 


38 


03317 


00100 


WN 


.03480 


47 


03504 


00 300 


BNI 


03492 


48 


70717 


0570* 


H 


03504 


46 


03324 


00200 


BI 


03516 


49 


03384 




B 


03528 


46 


03564 


00100 


BI 


03540 


39 


03577 


00100 


WA 


03552 


38 


03321 


00100 


WN 


03564 


47 


03588 


00300 


BN] 


03576 


48 


70717 


0580* 


H 


03588 


46 


03324 


00200 


BI 


03600 


49 


03648 




B 


03612 








X 


-03624 








X 



ERROR ROUTINE 
CHECK SW 1 
TYPE ROUTINE NO. 
TYPE TNF FIELD 
CHECK SW 3 
HALT 

CHECK SW 2 



CHECK SW 1 

TYPE ROUTINE NO. 

TYPE INSERTED FLAG P FIELD 

BRANCH TO COMPARE OF RESULT 



ROUTINE 010 
OVE FLAG - FLAG TO NO FLAG 

WORKING AREA 

RESTORE P WORKING AREA TO 
ORIGINAL CONDITION 
RESTORE Q. WORKING AREA TO 
ORIGINAL CONDITION 
MOVE FLAG 

CHECK FLAG MOVED TO P FIELD 
CHECK FOR E/Z 

CHECK FLAG REMOVED FROM Q. FIELD 
CHECK FOR E/Z 



ERROR ROUTINE 
CHECK SW 1 
TYPE ROUTINE NO. 
TYPE P FIELD 
CHECK SW 3 
HALT 

CHECK SW 2 
BRANCH TO Q. FLAG CHECK 
CHECK SW 1 
TYPE ROUTINE NO. 
TYPE Q FIELD 
CHECK SW 3 

CHECK SW 2 
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ROUTINE Oil 
MOVE FLAG - FLAG TO FLAG 



03636 




75 


f 11? 


X 


WORKING AREA 


03648 


15 


03642 


5 


TDM 


RESTORE P WORKING AREA TO 


03660 










ORIGINAL CONDITION 


15 


03646 


T 


TDM 


RESTORE Q WORKING AREA TO 


03672 




03642 






ORIGINAL CONDITION 


71 


0364$ 

n 


MF 


MOVE FLAG 


05684 


14 


03642 


CM 


CHECK FLAG REMAINED IN P FIELD 


OJ696 


47 


03768 


0120Q 


BNI 


CHECK FOR E/Z 


03708 


14 


03646 


11 


CM 


CHECK FLAG REMOVED FROM Q. FIELD 


A 0*70 A 
03J20 


47 


03852 


01 20Q 


BNI 


CHECK FOR E/Z 






03912 


B 


03744 






Y 
A 




03756 








Y 

A 














ERROR ROUTINE 


03768 


46 


03804 


00100 


BI 


CHECK SW 1 


03780 


39 


03817 


00100 


WA 


TYPE ROUTINE NO. 


03792 


38 


03641 


00 100 


W^ 


TYPE P FIELD 


03804 


47 


03828 


00 300 


BNI 


CHECK SW 3 


03816 


48 


70717 


1570* 


H 


HALT 


03828 


46 


0 3648 


00200 


BI 


CHECK SW 2 


03840 


49 


03708 




B 


BRANCH TO Q FLAG CHECK 


03852 


46 


03888 


00100 


BI 


CHECK SW 1 


03864 


39 


03901 


00100 


WA 


TYPE ROUTINE NO. 


03876 


38 


03645 


00100 


Wl>* 


TYPE Q FIELD 


03888 


47 


03912 


00300 


BNI 


CHECK SW 3 


03900 


48 


70717 


1580* 


H 


HALT 


03912 


46 


03648 


00200 


BI 


CHECK SW 2 


03924 


49 


03972 




B 




03936 








X 




03948 








X 














ROUTINE 012 










MOVE FLAG - NO FLAG TO FLAG 


03960 




79 


an ■ 

t 33/ 


X 


WORKING AREA 


03972 


15 


03966 


9 


TDM 


RESTORE P WORKING AREA TO 












ORIGINAL CONDITION 


03984 


15 


03970 


3 


TDM 


RESTORE Q. WORKING AREA TO 












ORIGINAL CONDITION 


03996 


71 


03966 


039Z0 


MF 


MOVE FLAG 


04008 


14 


03966 


79 


CM 


CHECK FLAG REMOVED FROM P FIELD 


04020 


47 


04080 


01200 


BNI 


CHECK FOR E/Z 


04032 


14 


03970 


33 


CM 


CHECK Q. FIELD REMAINED THE SAME 


04044 


47 


04164 


01200 


BNI 


CHECK FOR E/Z 


04056 


49 


04224 




B 




04068 








X 
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ERROR ROUTINE 



04080 


46 


041 16 


001Q0 


BI 


CHECK SW 1 


04092 


39 


04129 


00100 


WA 


TYPE ROUTINE NO. 


04104 


38 


03965 


00100 


WN 


TYPE P FIELD 


04116 


47 


04140 


00 300 


BNI 


CHECK SW 3 


04128 


48 


70717 


2570* 


H 


HALT 


04140 


46 


03972 


00200 


BI 


CHECK SW 2 


04152 


49 


04032 






BRANCH TO Q. FLAG CHECK 


04 164 


46 


04200 


00100 


BI 


CHECK SW 1 


04176 


39 


04213 


00 100 


"WA 


TYPE ROUTINE NO. 


04188 


38 


03969 


00100 


WN 


TYPE Q FIELD 


04200 


47 


04224 


00 300 


PNI 


CHECK SW 3 


04212 


48 


70717 


2580* 


¥ 


HALT 


04224 


46 


03972 


00200 




CHECK SW 2 


04236 


49 


04284 




p 




04248 












04260 








X 














ROUTINE 013 








MOVE FLAG 


- NO FLAG TO NO FLAG 


04272 




78 


t 22* 


X 


WORKING AREA 






r% It 0 "iO 

0M-2/O 


8 


TDM 


RESTORE P WORKING AREA TO 












ORIGINAL CONDITION 


04296 


15 


04282 


2 


TDM 


RESTORE Q. WORKING AREA TO 












ORIGINAL CONDITION 


04308 


71 


04278 


04282 


MF 


MOVE FLAG - NO FLAG TO NO FLAG 


04320 


14 


04278 


78 


CM 


CHECK FOR NO FLAG IN P FIELD 


04332 


**7 


04404 


012,00 


BNI 


CHECK FOR E/Z 


04344 


14 


04282 


22 


CM 


CHECK FOR NO FLAG IN a FIELD 


04356 


47 


04488 


01200 


BNI 


CHECK FOR E/Z 


04368 


49 


04548 




B 




04380 












04392 










«■ 










ERROR ROUTINE 


04404 


46 


04440 


00100 


BI 


CHECK SW 1 


04416 


39 


04453 


00100 


WA 


TYPE ROUTINE NO. 


04428 


38 


04277 


00100 


WN 


TYPE P FIELD 


04440 


47 


04464 


00 300 


BNI 


CHECK SW 3 


04452 


48 


70717 


3570* 


H 


HALT 


04464 


46 


04284 


00200 


BI 


CHECK SW 2 


04476 


49 


04344 




B 


BRANCH TO Q. FLAG CHECK 


04488 


46 


04524 


00100 


BI 


CHECK SW 1 


04500 


39 


04537 


00100 


WA 


TYPE ROUTINE NO. 


04512 


38 


04281 


00100 


V/N 


TYPE Q FIELD 


04524 


47 


04548 


00 300 


BNI 


CHECK SW 3 


04536 


48 


70717 


358Q£ 


H 


HALT. 


04548 


46 


04284 


00 200 


BI 


CHECK SW 2 


04560 


49 


04932 




B 




04572 








X 




04584 








X 
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ROUTINE 016 

Check Transfer Numeric Strip 
9 Digits v to Even Memory 



04896 








X 


WORKING AREA 


04908 




0 


i« 


X 


WORKING AREA 


04920 




2345 


67890 


X 


COMPARE DATA 


04932 


72 


01237 


04918 


TNS 


TRANSFER NUMERIC STRIP - FIELD 






nil ni £) 


0^9,? « 


C 


COMPARE FOR CORRECT RESULTS 


04956 


47 


05004 


01200 


BNI 


BRANCH TO ERROR ROUTINE 


04968 


49 


05064 




B 




04980 








X 




04992 








X 














ERROR ROUTINE 


05004 


46 


05040 


00100 


Bl 


CHECK SWl 


05016 


39 


05053 


00100 


WA 


TYPE ROUTINE NO. 


05028 


38 


04910 


00100 


WN 


TYPE COMPARE DATA 


05040 


47 


05064 


00300 


BNI 


CHECK SW 3 


05052 


48 


70717 


6 


H 


HALT 


05064 


46 


04932 


00200 


BI 


CHECK SW 2 


05076 


49 


04608 




B 




05088 








X 




05100 








X 




05112 








X 




05124 






E 
L 


X 
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04596 
04608 
04620 
04632 
04644 
04656 



04668 
04680 
04692 
04704 
04716 
04728 
04740 
04752 
04764 
04776 
04788 
04800 
04812 
04824 
04836 
04848 
04860 
04872 
04884 

10000 
10001 
10002 
10003 
1 0004 



ROUTINE 014 
REPEAT ROUTINE 



46 
11 
47 
34 
49 



04620 
04607 
01344 

04836 



000 
01400 
01 
01400 

00102 



X 

BI 

AM 

BNI 

K 

B 



WORKING AREA 

TURN OFF OVERFLOW 

ADD ONE TO REPEAT CONSTANT 

CHECK FOR OVERFLOW 



ROUTINE 015 
TEST COMPLETED ROUTINE 



63 


45626 


3 43 


X 


T E S T C 


56 


54575 


34563 


X 


OMPLET 


45 


4403 


4946 


X 


ED. IF 




6266 


71 


X 


S W 1 


56 


4646 , 


4155 


X 


OFF AN 


44 


555 


6 59 


X 


D NO R 


56 


64634 


95545 


X 


OUT I N E 




55566 


2 63 


X 


N OS T 


68 


57454 


423 


X 


Y P ED, 


63 


45626 


3 57 


X 


TEST P 


45 


59465 


65954 


X 


E RFORM 


45 


. 44 5 


75956 


X 


ED PRO 


57 


45595 


36803 


X 


PER LY , 








X 


• * 


39 


04669 


00100 


wa 


TYPE TESTS 


46 


01344 


00400 


BI 


CHECK SW 4 



HALT 



X 



12 


34567 


89098 


X 


76 


54032 


1NMLK 


X 


JO 


0PQR0 t 


12345 


X 


OP 


a-234 


56789 


X 


+E ■ 
+L 
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